(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 10.4' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[     24980,        647]
NotebookOptionsPosition[     21600,        548]
NotebookOutlinePosition[     24026,        612]
CellTagsIndexPosition[     23906,        606]
WindowTitle->FCMultiLoopTID
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[GridBox[{
   {Cell["FEYN CALC SYMBOL", "PacletNameCell"], Cell[TextData[Cell[BoxData[
     ActionMenuBox[
      FrameBox[
       InterpretationBox[Cell[TextData[{
         "URL",
         StyleBox[" \[FilledDownTriangle]", "AnchorBarArrow",
          StripOnInput->False]
        }]],
        TextCell[
         Row[{"URL", 
           Style[" \[FilledDownTriangle]", "AnchorBarArrow"]}]]],
       StripOnInput->False], {"\<\"FeynCalc/ref/FCMultiLoopTID\"\>":>
      None, "\<\"Copy Wolfram Documentation Center URL\"\>":>
      Module[{DocumentationSearch`Private`nb$}, 
       DocumentationSearch`Private`nb$ = NotebookPut[
          Notebook[{
            Cell["FeynCalc/ref/FCMultiLoopTID"]}, Visible -> False]]; 
       SelectionMove[DocumentationSearch`Private`nb$, All, Notebook]; 
       FrontEndTokenExecute[DocumentationSearch`Private`nb$, "Copy"]; 
       NotebookClose[DocumentationSearch`Private`nb$]; Null], 
      Delimiter, "\<\"Copy web URL\"\>":>
      Module[{DocumentationSearch`Private`nb$}, 
       DocumentationSearch`Private`nb$ = NotebookPut[
          Notebook[{
            Cell[
             BoxData[
              MakeBoxes[
               Hyperlink[
               "http://reference.wolfram.com/language/FeynCalc/ref/\
FCMultiLoopTID.html"], StandardForm]], "Input", TextClipboardType -> 
             "PlainText"]}, Visible -> False]]; 
       SelectionMove[DocumentationSearch`Private`nb$, All, Notebook]; 
       FrontEndTokenExecute[DocumentationSearch`Private`nb$, "Copy"]; 
       NotebookClose[DocumentationSearch`Private`nb$]; 
       Null], "\<\"Go to web URL\"\>":>FrontEndExecute[{
        NotebookLocate[{
          URL[
           StringJoin[
            If[
             TrueQ[DocumentationBuild`Make`Private`wsmlinkQ$117230], 
             "http://reference.wolfram.com/system-modeler/", 
             "http://reference.wolfram.com/language/"], 
            "FeynCalc/ref/FCMultiLoopTID", ".html"]], None}]}]},
      Appearance->None,
      MenuAppearance->Automatic,
      MenuStyle->"URLMenu"]],
     LineSpacing->{1.4, 0}]], "AnchorBar"]}
  }]], "AnchorBarGrid",
 GridBoxOptions->{GridBoxItemSize->{"Columns" -> {
     Scaled[0.65], {
      Scaled[0.34]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, 
   "RowsIndexed" -> {}}},
 CellID->1],

Cell[TextData[{
 Cell["FCMultiLoopTID", "ObjectName"],
 Cell[BoxData[
  InterpretationBox[
   StyleBox[
    GraphicsBox[{},
     BaselinePosition->Baseline,
     ImageSize->{8, 0}],
    CacheGraphics->False],
   Spacer[8]]]],
 Cell[BoxData[""], "ObjectNameTranslation"]
}], "ObjectNameGrid"],

Cell[CellGroupData[{

Cell[BoxData[GridBox[{
   {"", Cell[TextData[{
     Cell[BoxData[
      RowBox[{"FCMultiLoopTID", "[", 
       RowBox[{"amp", ",", 
        RowBox[{"{", 
         RowBox[{"q1", ",", "q2", ",", "..."}], "}"}]}], "]"}]], 
      "InlineFormula"],
     " \[LineSeparator]does a multi-loop tensor integral decomposition, \
transforming the Lorentz indices away from the loop momenta q1,q2,... The \
decomposition is applied only to the loop integrals where loop momenta are \
contracted with Dirac matrices or epsilon tensors."
    }]]}
  }]], "Usage",
 GridBoxOptions->{
 GridBoxBackground->{
  "Columns" -> {{None}}, "ColumnsIndexed" -> {}, "Rows" -> {{None}}, 
   "RowsIndexed" -> {}}},
 CellID->982511436],

Cell[CellGroupData[{

Cell[TextData[Cell[BoxData[
 ButtonBox[Cell[TextData[{
   Cell[BoxData[
    InterpretationBox[
     StyleBox[
      GraphicsBox[{},
       BaselinePosition->Baseline,
       ImageSize->{6, 0}],
      CacheGraphics->False],
     Spacer[6]]]],
   "Details"
  }], "NotesFrameText"],
  Appearance->{Automatic, None},
  BaseStyle->None,
  ButtonFunction:>(FrontEndExecute[{
     FrontEnd`SelectionMove[
      FrontEnd`SelectedNotebook[], All, ButtonCell], 
     FrontEndToken["OpenCloseGroup"], 
     FrontEnd`SelectionMove[
      FrontEnd`SelectedNotebook[], After, CellContents]}]& ),
  Evaluator->None,
  Method->"Preemptive"]]]], "NotesSection",
 WholeCellGroupOpener->True,
 CellGroupingRules->{"SectionGrouping", 50},
 CellID->497550741],

Cell["", "SectionHeaderSpacer"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Options", "[", "FCMultiLoopTID", "]"}]], "Input",
 CellLabel->"In[18]:="],

Cell[BoxData[
 FormBox[
  RowBox[{"{", 
   RowBox[{
    RowBox[{"Dimension", "\[Rule]", "D"}], ",", 
    RowBox[{"Collecting", "\[Rule]", "True"}], ",", 
    RowBox[{"Contract", "\[Rule]", "True"}], ",", 
    RowBox[{"DiracSimplify", "\[Rule]", "True"}], ",", 
    RowBox[{"ExpandScalarProduct", "\[Rule]", "True"}], ",", 
    RowBox[{"FeynCalcInternal", "\[Rule]", "False"}], ",", 
    RowBox[{"FeynCalcExternal", "\[Rule]", "False"}], ",", 
    RowBox[{"FCVerbose", "\[Rule]", "False"}], ",", 
    RowBox[{"FeynAmpDenominatorSimplify", "\[Rule]", "True"}], ",", 
    RowBox[{"ApartFF", "\[Rule]", "True"}]}], "}"}], 
  TraditionalForm]], "Output",
 ImageSize->{497, 54},
 ImageMargins->{{0, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}},
 CellLabel->"Out[18]="]
}, Open  ]]
}, Closed]]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 Cell[BoxData[
  InterpretationBox[
   StyleBox[
    GraphicsBox[{},
     BaselinePosition->Baseline,
     ImageSize->{6, 0}],
    CacheGraphics->False],
   Spacer[6]]]],
 "Examples",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(1)", "ExampleCount"]
}], "PrimaryExamplesSection",
 WholeCellGroupOpener->True,
 CellTags->"PrimaryExamplesSection",
 CellID->1923409498],

Cell[CellGroupData[{

Cell[TextData[{
 "Basic Examples",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(1)", "ExampleCount"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CellID->655084334],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FCI", "[", 
  RowBox[{
   RowBox[{"FVD", "[", 
    RowBox[{"q1", ",", "\[Mu]"}], "]"}], " ", 
   RowBox[{"FVD", "[", 
    RowBox[{"q2", ",", "\[Nu]"}], "]"}], " ", 
   RowBox[{"FAD", "[", 
    RowBox[{"q1", ",", "q2", ",", 
     RowBox[{"{", 
      RowBox[{"q1", "-", "p1"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"q2", "-", "p1"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"q1", "-", "q2"}], "}"}]}], "]"}]}], "]"}]], "Input",
 CellLabel->"In[1]:=",
 CellID->1095109255],

Cell[BoxData[
 FormBox[
  FractionBox[
   RowBox[{
    SuperscriptBox[
     FormBox[
      FormBox["q1",
       TraditionalForm],
      TraditionalForm], 
     FormBox[
      FormBox["\[Mu]",
       TraditionalForm],
      TraditionalForm]], " ", 
    SuperscriptBox[
     FormBox[
      FormBox["q2",
       TraditionalForm],
      TraditionalForm], 
     FormBox[
      FormBox["\[Nu]",
       TraditionalForm],
      TraditionalForm]]}], 
   RowBox[{
    InterpretationBox[
     SuperscriptBox[
      FormBox[
       FormBox["q1",
        TraditionalForm],
       TraditionalForm], "2"],
     SequenceForm[
      FeynCalc`Pair[
       FeynCalc`Momentum[$CellContext`q1, D], 
       FeynCalc`Momentum[$CellContext`q1, D]]],
     Editable->False], ".", 
    InterpretationBox[
     SuperscriptBox[
      FormBox[
       FormBox["q2",
        TraditionalForm],
       TraditionalForm], "2"],
     SequenceForm[
      FeynCalc`Pair[
       FeynCalc`Momentum[$CellContext`q2, D], 
       FeynCalc`Momentum[$CellContext`q2, D]]],
     Editable->False], ".", 
    InterpretationBox[
     SuperscriptBox[
      RowBox[{
       FormBox["\<\"(\"\>",
        TraditionalForm], 
       FormBox[
        FormBox[
         RowBox[{
          FormBox["q1",
           TraditionalForm], "-", 
          FormBox["p1",
           TraditionalForm]}],
         TraditionalForm],
        TraditionalForm], 
       FormBox["\<\")\"\>",
        TraditionalForm]}], "2"],
     SequenceForm[
      FeynCalc`Pair[-FeynCalc`Momentum[$CellContext`p1, D] + 
       FeynCalc`Momentum[$CellContext`q1, D], -
        FeynCalc`Momentum[$CellContext`p1, D] + 
       FeynCalc`Momentum[$CellContext`q1, D]]],
     Editable->False], ".", 
    InterpretationBox[
     SuperscriptBox[
      RowBox[{
       FormBox["\<\"(\"\>",
        TraditionalForm], 
       FormBox[
        FormBox[
         RowBox[{
          FormBox["q2",
           TraditionalForm], "-", 
          FormBox["p1",
           TraditionalForm]}],
         TraditionalForm],
        TraditionalForm], 
       FormBox["\<\")\"\>",
        TraditionalForm]}], "2"],
     SequenceForm[
      FeynCalc`Pair[-FeynCalc`Momentum[$CellContext`p1, D] + 
       FeynCalc`Momentum[$CellContext`q2, D], -
        FeynCalc`Momentum[$CellContext`p1, D] + 
       FeynCalc`Momentum[$CellContext`q2, D]]],
     Editable->False], ".", 
    InterpretationBox[
     SuperscriptBox[
      RowBox[{
       FormBox["\<\"(\"\>",
        TraditionalForm], 
       FormBox[
        FormBox[
         RowBox[{
          FormBox["q1",
           TraditionalForm], "-", 
          FormBox["q2",
           TraditionalForm]}],
         TraditionalForm],
        TraditionalForm], 
       FormBox["\<\")\"\>",
        TraditionalForm]}], "2"],
     SequenceForm[
      FeynCalc`Pair[
      FeynCalc`Momentum[$CellContext`q1, D] - 
       FeynCalc`Momentum[$CellContext`q2, D], 
       FeynCalc`Momentum[$CellContext`q1, D] - 
       FeynCalc`Momentum[$CellContext`q2, D]]],
     Editable->False]}]], TraditionalForm]], "Output",
 ImageSize->{292, 42},
 ImageMargins->{{0, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}},
 CellLabel->"Out[1]="]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FCMultiLoopTID", "[", 
  RowBox[{"%", ",", 
   RowBox[{"{", 
    RowBox[{"q1", ",", "q2"}], "}"}]}], "]"}]], "Input",
 CellLabel->"In[2]:="],

Cell[BoxData[
 GraphicsBox[
  TagBox[RasterBox[CompressedData["
1:eJztnQtUVNX+x/X/t/qnrqUGKVbcq4YC4oWSLAgVEcJH+Ej93z+2wJLymoio
aWj6l1BSFETRpHXDLBVDvfmAMEFlaZfQeKiYL1AEFOQhDDAMyDyYc+Y/A/MX
mDnnzHnsPQ/m91mr1r0x89v7+/vtvc8+c2b2d2TIynn/+I8+ffqs+S/1v+Yt
Xufz+eeLv5w/WP1//jt8zbKl4Us+nRG+dsnSJZ97hPyn+j/+W/1PeN8+fTT/
WwUAAAAAFgIhzov/R4CX88g3Pky885Q0dXcAwMohLHMSSsuP/HCtmVDJy/dP
fv39i02IwlpoNgDAFLRXHJwf8rtYpWotDJ+86EqzwHCKuuzYGV5f3ZWq2m6v
mzw3U2SM2Ugq25Qd7TwtDPf6NL+FfySmbJhEGgCYJWS7zvAnRRnzZx6tVqpk
97728Pu5lhAeU5wd5L+vTFqbHrIlX4JrtukJ0fD0VuySpFKZgKgGsmEUaQCA
AVJakbXHz/a5gWOD1321aX344rlTpy/elv5QynEck/LqnP2rp781N0fc47+3
Xg31j7knUymrkqd4xNznNAtpYkqLtgVE5hYcPngTx2SjE6IiW26nfJ8tUgoJ
bigbeKUBAE6IutSpNrbTz2o308q69E//OvAvH50Tcdk+kLK6x9UFqx2G+2f3
mIDqa6/ne+rQ8tLvfMYG50lQxJTe2ewTtOmnB20cYgltlJQ+Onfy308U6nS1
PiqR8FxODGYDqzQAwAnZcD5gqM2UE107bdn9GJf+Nv5ZjRwjqefJ2Fd7TkBl
9VEfJ++pQas2x+2e4z5nZ1p5G7drLUVMlaRg+WdHKhQceyekUcXjlGDHUY4u
asaOm/S/t3lOdMPZwC4NAHAhzv778CGehx93XWYV5d+4DRjic75B/8VEy+1j
G+ZN9F4fvzbI/w37kR7LUh4+26Lrz3pSlLnAN7GceWZwjIkGfI3KK3/dHbf/
SOLSMf2fH+YfFn24XKr9C6tsAIBlIsn96LXB7v981DW+SVHGTNuBrvGlcqrX
kw2Zk4aOXHG5mVS1V/1r/vCXpx6v0S5CehNQM3U8I24ZvIJziYkMLI2Skvwv
3vZOUmdTVhzlPOzd4zVdNzBsswEAFkhrYeiIQX/b+aBr1VBWH/Ozfcn7h8p2
6neIf5vyimtCWccbJH/8j/2IT661dv6F/wREGrO9+ueQad46zAy7LNa5k8Ag
hKg/M93erSObLQUhLpO+r6BJIgD0LtpuRzgMcooqfraxV9afDRkxdHJ8Ee2l
s/sEbL3+jzHjIou023c0KwmqmKZotL3ywAQ7d/X6QdRnLlsQU9gCD2AAq0Ba
FOk0yGGtdsdNtNxOXu7hHLAtp4nh2YRmAmo3MYryfRMnah5qdiK7Fy1gJUEd
0xSNEi13jm0IXfvN8bTUi6XwpXrAKpDX5p6KmTH0uRdeW/DF5i1bIiPCPvl4
ReypW80GnnCqJ+DLdjMjtu/Ztztq5f/+/P+fUyrq/8zYMfmlAaPX/Cu39CnH
75/hiGn8RglR5sfO9jYD+vVV02/w+DXXBXwZFgB6Od1vCsw5prEbVdRkbI8+
+ahzPSLbGwsS1uei+oEOAPQ+OibgLuoHO+YU07iNKmtPTnPwS63r3MMQLSVZ
aReqBHytHgB6NUrJzX+Fvz7A1m/n2ZuGboNMGdPojZKtt+LmOtvZv+EfuHT9
jqRT1xrgqQ0AAAAAAAAAAABgKvwAAAA6KCsrM/WCBABAr4XtzygAAAAAAAAA
AAAASwOH/YqVWLpYiUwVKAUMg8N+BZOli7lhJTJVoBRgATr7FbwxzRArkakC
pb0NStsUVHEE269QgCNmJ6hSgSS4hcrkAT6luDFpTdtrTgS+GZQnof6rvOpi
8umi1p79Q2X4ooOebQrRXHgy5XI91x92obdfIdtKksOnjnl54JCRE5cfut/9
eHN2MSnTyNQgnQQU0AenT7jFyWQomQbjKjXQGQTgqylb2qtPfjrxZftAypWk
vTZt1aL9VEsWEsMXHShtU9ruJAR9mdXARS16+5W2u7tWJuY+kSsaribOthvk
Flsi5xKTPo0cJaCBOThVwi1QJm3Jur3EaEpZdEYguGrKGsXjExsTfo0b70C1
khCijCCP5ZRLDDrDFx0oXBsaLwa9s0xznLmgOELsVxS1l7JqtLV/eiNs1Kuz
cprZx2RIIzcJKGEIrpdwS5RJV7IeGEspq84IB31NWaOoOL4hqbi5/Ft3qpVE
WX3U22nhH5QJ42T4wgWKbJCNF953CjjXQLGUqDeNx6M2xu8/9OO+qCWBMwMv
ixnisIQ+ZgctBYudPbsbVBiCKY2YJHTC256GIeH0mEwmY/AO6EtmXKUGOsMG
49aULfKHRzYcKJGqFA+pV5KWvECH8XvLqDRzNXxhD1U2pEWbXF0+v6m3bJKS
3JVvTdN4T6vFlMSOG+7d9TSL7/hkiqn5c1N2qO+aHC6/OmBIIx4J3aLztKeh
SzgTppMppGRGVWqoM6wwZk3ZISs9tOFQmWY9o1tJmn7zsZ+QXEVxA8XZ8IX9
74CosiEv3fWmw4d5ek+qJHmBo8ZFd55urijb6/YKgvHJFFNFiK/ErD5QzO3z
Mvo08peA2Z6GLuHmKVNIyYyqlLkzZlhTVsjux01x+5tbB2Pt+78weLSrz8ob
rd1fIrkyb5T7tw/1114ehi/s+0WRDVnxFlfnsBtPdV/bdMnX7vXVncssqpWE
PqZ615qy48CfEq6XE9o04pLQDZ72NHQJZ8J0MoWUzIhK+Y4fXYxYU660V3z/
9miKPYm8NN7dZYV+23wMX1hDZZsiyV3o6JVSrRde/mCn25ARS89rHmO1XosY
PazH+GRtv6JsKjhxulCsZIwpr/xld1K+uOMDZkJ8OzWjmvE2rltMujSilEAH
T3sauoTrYRYyhZTMaEo5jh8GcNdUAHQriXrfstXDq+eHQ3wNX9hBbZsiu7fV
w5fS45FoLtg+a7TtcPfZoZHbV4x+dk/KzX5FnBPs6Bicrd1FUsVU77mWOb7Y
t4+Wvv1d4x4wD4TuMSnSiFoCbTd42dPQJ9w8ZfIvmZGUch8/TD3BXFMsEE3Z
6z7YIfQJkTBISf7GedHXDXk86t2TIgBVTJZpxCCBjz0Ny4TrYzqZPINbplKj
1hQhsor0hKRLtTwfWiFo/uy+PedrDDevKEtwRb+SIIvJJo0YJHC3p2GdcJp3
m0Qmr+CWqtTYNUUIKRc1yE2zmhHSJ00smlY23zwTo97ZOaw6XYrqi8jIYzKn
EYMEPvY0LBPOgNFl8gxumUpNU1MAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAACLBOzYAMCcICxzEmKyY7PQbACAKWivODg/5Hex5kDK8MmLrgg9
MVxRlx07w+uru1JV2+11k+dmiowxG9HZsTFlwyTSAMAs0TM4I0UZ82dqjv+V
3fvaw+/nWh5H9ejGFGcH+e8rk9amh2zJF3xSH9tGOxBsx2YoG0aRBgAYQOUV
SGdw1no11F9z+p2yKnmKR8x9TrOQJqa0aFtAZG7B4YM3cUw29O6E3TCUDbzS
AAAnSLwC6QzO1Ndez/fUoeWl3/mMDc6ToIgpvbPZJ2jTTw+wHFSH3p2wGwaz
gVUaAOAEnVcgxcHdyuqjPk7eU4NWbY7bPcd9zs60co5H2lAdBi4pWP7ZkQqM
51shdSfshuFsYJcGALjg5BXI0eCMFGUu8E0sZ54ZvE3ThICvUXnlr7vj9h9J
XDqm//PD/MOiD5drHRLYZQMALBOuXoFcDM40U8cz4pbBKzhf0zRBYGmUlOR/
8bZ3kjqbsuIo52HvHq/puoFhmw0AsEA4ewXyNThjBGlMzE5tTBD1Z6bbu3Vk
s6UgxGWS6TwPAMCo8PAK5GlwxgiOmKZotL3ywAQ7d/X6QdRnLlsQU2hSzwMA
MBp8vAJ5GpwxgiOmKRolWu4c2xC69pvjaakXS+FL9YBVwNcrkJ/BmfFjGr9R
QpT5sbO9zYB+fdX0Gzx+zXX0ZtUA0FvgY3BmipjGblRRk7E9+uSjzvWIbG8s
SFifi8f7CgB6A9wNzkwT07iNKmtPTnPwS63r3MMQLSVZaReqBHytHgB6NXwM
zkwR0+iNkq234uY629m/4R+4dP2OpFPXGuCpDQAAAAAAgEWgfJK+dEW+xNTd
AADAolE+PvxeALJzoywaPwAA6CkrK2OYPrCSAADAm66fM3g6DbFx86L7OQMA
AAALYE8CAIBwYCUBAEA4sJJYM4rKwwunbCsW/PVN63GQAaUAoAP59N7RnVu9
3tkieCXB5CBjhoBSAOgJ0ZT3w093q36b7SV8JUHnIGPugFLAYqH0ahEaR1Gd
8f2Zx3KVOJvnSoLHQYZbcyYEn1LccM2k5So1FWRbSXL41DEvDxwycuLyQ/dp
Tk2XV11MPl3U2vOPqFxmdHuk69VCNBeeTLlcz/XXZBSeL7KSXQtmzZ4zZ877
k4bbOE//9PuHrH9EK9BBhjKBfJoTjoGK02cbh1J2w08I9JkUqhToTtvdXSsT
c5/IFQ1XE2fbDXKLLdGfW+21aasW7adan5G4zOhA6dXSdich6MusBi6lpTOa
6aA5Z8GkaC57EkEOMvQJ5NV5YbCoOFW28ShlM/yEwZxJ/kqBnihqL2XVaIv3
9EbYqFdn5eh63hKijCCP5XlUP1FC5zKjA4VVROPFoHeWac5QFxZHC+eVhDIa
OwcZhgRyaw4JLCpOkW1MSll1RjgMmeSpFGCipWCxs2d3p4cOlNVHvZ0W/kE5
Oji5zHCBovRk44X3nQLONeguJcg9X9T77eNRG+P3H/pxX9SSwJmBl7vujXhN
baYEYmiOZfAOqCve8UaabDPCW6mBzrCB9zDgpRRggGzKDvVdk6P3s4GWvECH
8XvLqArM1WWGPVSllxZtcnX5/Kb+NQKp5wspyV351jSNfbb6jr8kdtxw764H
gfymNkMCcTTHMriKvuId0GabAd5KDXWGFXyHAR+lAC2E+ErM6gPFFB94Nf3m
Yz8huYribpGzywxbDxfq0stLd73p8GEexWM5lJ4vkrzAUeOiOw9oV5TtdXtF
8NSmTyD/5thlkik4Q8U7oM82BqXMncFs/cNHKUCNetuZsuPAn9TG8pIr80a5
f/tQ/0LDw2WGNVSllxVvcXUOu/FU/9UoPV+aLvnavb668wqFZiWhTSCe5lgF
Z6x4Z+O02aaHp1LDnWEHz2HARylAhbzyl91J+eKOD00J8e3UjOoetyby0nh3
lxX6iebjMsMaKq8WSe5CR6+UaorwKD1f5A92ug0ZsfS85glg67WI0cN6TG3W
0ZRNBSdOF4o7tvI0CUTZHDctBireAX22dRCqlE1n2MFzGLBWCjCh3kcsc3yx
bx8tffu7xj3QqaTs/lYPr56fhPF1mWEHtVeL7N5WD19qY0mkni9Ec8H2WaNt
h7vPDo3cvmL0s9t5btHEOcGOjsHZHRtwigSibo6DFhYVVzFmG6VSdp1hCb9h
wF4pIBSiKXvdBztM+ziMlORvnBd9ndpYEpfRjN7tPE9YJhBVc8KDM2abCZMq
5TMMeCsF+CGrSE9IulTL8wkdgubP7ttzvoaueVxGM4qyBFdEA55NAhE2Jyi4
gWwbfLeplHIfBsKUAvwg5aIGuWmWbkL6pIm2aVxGM8rmm2di1Jtih1WnS5F8
h5s5gcib4x2cMdusMIVSPsNAuFIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAABLBRzZAAAQDCZHNsIslyTz7BUA9ALQObK1VxycH/K7WHNoZfjk
RVd6HKGuqMuOneH11V2pqu32uslzM0VGm9JMveKB6YQAgLmBx2WPFGXMn6k5
D1l272sPv59rdU/cEWcH+e8rk9amh2zJF3wOIW0ndKUZ6hWPmEYRAgBmjECX
PWZar4b6a44DVFYlT/GIua+3JkmLtgVE5hYcPngTx/Sjk2aoVzxi4hUCAGaP
IJc9Q6iv+Z7vnRWR8tLvfMYG50n0Lv7SO5t9gjb99ADLyXR0PnQGe8UjJlYh
AGAZ8HTZM4iy+qiPk/fUoFWb43bPcZ+zM61c94wfScHyz45UYDy9i+J8dcO9
4h4TvxAAMAuQe/Y9Q1756+64/UcSl47p//ww/7Dow+VakwQVKcpc4JtYjnt6
cZTGqlf40gUAFg5Sz75nQSX5X7ztnfRIoZIVRzkPe/d4TdetgmbKekbcMsJ+
n4s0tr3Cki4A6AWg9OzTQtSfmW7v1mG20lIQ4jIJte0BZh86RnDEBIBeAErP
Pi3tlQcm2Lmr1w+iPnPZgphCU9keYJCGJSYA9AJQevZpIVruHNsQuvab42mp
F0tN+KV6DNKwxASAXgBSzz4NhCjzY2d7mwH9+qrpN3j8muum8qtGLg1TTADo
BSD27FPUZGyPPvmoc4KR7Y0FCetz8dhfGQaHHSEui0MAsHCQevYpa09Oc/BL
reu8KBMtJVlpF6oEfK1eGDjsCHFZHAKAJYPas49svRU319nO/g3/wKXrdySd
utZgMrNqHHaEuCwOAQAAAAAAAAAAAMBM8QMAABFlZWWmntAAAPRO2P7YAQAA
AAAAAAAAAADQgdabBofTjZW451iJTJU1KbUm0HrT4HC6weSeY25YiUyVNSm1
KtB506CPhi+mGWIlMlXWpNRcofSUQRWHtzcNHqcbCnDE7ARVYpEEt1CZPMCn
1KKQV11MPl3U2rM2pLQia4+f7XMDxwav+2rT+vDFc6dOX7wt/aFUWAn1TFKI
5sKTKZfruf7qDa03DXqnG7KtJDl86piXBw4ZOXH5ofvdz2xnF5OyKEwN0klA
AX1w+vJZnEyGkmkQqrTX016btmrRfqrllKhLnWpjO/2s1pFRWZf+6V8H/uWj
cyIBh9pQmqS03UkI+jKrgUsl0HrToHe6abu7a2Vi7hO5ouFq4my7QW6xJXIu
MemLwlECGpiDU5XPAmXSlqzbS3gr7f0Qoowgj+V5Eoo/kQ3nA4baTDnR5fAo
ux/j0t/GP6tRWJsUdgmNF4PeWaY5vFxQHEHeNEijKWovZdVoB+LTG2GjXp2V
08w+JkNRuElACUNwvfJZoky6kvWAp1IrQFl91Ntp4R+UxRRn/334EM/Dj7tW
WUX5N24DhvicbxDWKMVIIBsvvO8UcK5BdylBbrai3sEej9oYv//Qj/uilgTO
DLz87N0C/CloY3bQUrDY2fOfj9h73TAVBZOETnhnm658jJhMJmPwDuhLxkup
NdCSF+gwfm8Z1SiX5H702mD37ukkRRkzbQe6xgs9PItqJEiLNrm6fH5Tf0lH
arZCSnJXvjVNY6itvkEviR033LvruR3f8ckUU/PnpuxQ3zU5XH5fwVAUPBK6
ReeZbdryMWA6mUJKxkepNdD0m4/9hOQqipu71sLQEYO0B4p3oqw+5mf7kvcP
ldQfjrL/jRLVSJCX7nrT4cM8iqdoKM1WJHmBo8ZFd56Mrijb6/YKgvHJFFNF
iK/ErD5QzM0jk74o/CVgtsuhL585yhRSMj5KrQHJlXmj3L99qH9daLsd4TDI
Kar42eZWWX82ZMTQyfFFwldjqpEgK97i6hx246n+q1GarTRd8rV7fXXnBQXV
SkIfU72FTtlx4E8J150wbVFwSegGz2zTl48e08kUUjI+Sq0BeWm8u8sK/bxI
iyKdBjms1To9qu+fk5d7OAdsy2lC8dE0lUmKJHeho1dKNUV4lGYr8gc73YaM
WHpe88Cu9VrE6GE9xifraMqmghOnC8VKxpjyyl92J+WLOz6uJsS3UzOqGW8K
u8WkKwpKCXTwzDZ9+XQwC5lCSsZaqbUhu7/Vw6vnZ0vy2txTMTOGPvfCawu+
2LxlS2RE2Ccfr4g9dQvNccDUJimye1s9fKkNMJGarRDNBdtnjbYd7j47NHL7
itHPbpC5RRPnBDs6Bmdrt8xUMdU7uGWOL/bto6Vvf9e4B8yfLnWPSVEU1BJo
u8Er2wzlM0uZ/EvGXqnVQTRlr/tgh2mfXpGS/I3zoq9TG2DiMlvRu0E2o5gs
i4JBAp9sM5aPCdPJ5Bmct1IrQVaRnpB0qZb9Y0rUzZ/dt+d8DV3zuMxWFGUJ
ruhXEmQx2RQFgwTu2TZQPoPvNolMXsGFKbUSSLmoQW6alZaQPmmibRqX2Yqy
+eaZGPUe2WHV6VJuD1aMGJO5KBgk8Mk2Y/lYYXSZPIMLVwoAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAGDWgO0aAACCwWS7RpjlkmSevQKAXgA6
27X2ioPzQ34Xa466DJ+86EqPo8wVddmxM7y+uitVtd1eN3lupshoU5qpVzww
nRAAMDfwePORooz5MzXnEsvufe3h93Ot7rE94uwg/31l0tr0kC35nI9wZN0J
XWmGesUjplGEAIAZg96brxutV0P9NacbKquSp3jE3Ndbk6RF2wIicwsOH7yJ
Y/rRSTPUKx4x8QoBALMHvTdfN9TXfM/3zopIeel3PmOD8yR6F3/pnc0+QZt+
eoDlPDs6MzuDveIRE6sQALAM0Dr9daGsPurj5D01aNXmuN1z3OfsTCvXPWtH
UrD8syMVGI/oojik3XCvuMfELwQAzALkTn/PkFf+ujtu/5HEpWP6Pz/MPyz6
cLnW80FFijIX+CaW455eHKWx6hW+dAGAhYPU6e9ZUEn+F297Jz1SqGTFUc7D
3j1e03WroJmynhG3jLDf5yKNba+wpAsAegEonf60EPVnptu7dXjHtBSEuExC
7W2A2VaPERwxAaAXgNLpT0t75YEJdu7q9YOoz1y2IKbQVN4GGKRhiQkAvQCU
Tn9aiJY7xzaErv3meFrqxVITfqkegzQsMQGgF4DU6U8DIcr82NneZkC/vmr6
DR6/5rqpTKmRS8MUEwB6AYid/hQ1GdujTz7qnGBke2NBwvpcPM5PhsFhYojL
GBEALBykTn/K2pPTHPxS6zovykRLSVbahSoBX6sXBg4TQ1zGiABgyaB2+iNb
b8XNdbazf8M/cOn6HUmnrjWYzJEah4khLmNEAAAAAAAAAAAAADAL/AAAMCJl
ZWWmnvQAAAAAAAAAAAAAAAAAgAa0bjU4vG+sxE/HSmSqrEmpNYHWrQaH9w0m
Px1zw0pkqqxJqVWBzq0GfTR8Mc0QK5Gpsial5gqlywyqOLzdavB431CAI2Yn
qBKLJDg+mbixHqUsIdtKksOnjnl54JCRE5cfuk9zlri86mLy6aLWnn8kpRVZ
e/xsnxs4NnjdV5vWhy+eO3X64m3pD6XCRqqebQrRXHgy5XI919/BoXWrQe99
w5B5djEpi8LUIJ0EFNAHpy8fDpnsxrMQ8Cm1aNru7lqZmPtErmi4mjjbbpBb
bIn+b8Xba9NWLdpPtZwSdalTbWynn9V6NCrr0j/968C/fHROJOCYG0rblLY7
CUFfZjVwqQRatxr03je0mWcXk74oHCWggTk4VfnwyGQznoWBS6mFo6i9lFWj
zfXTG2GjXp2Vo+sES4gygjyW50ko3k02nA8YajPlRJfno+x+jEt/G/+sRmHd
ojBQaLwY9M4yzXHmguIIcqtBGo0u8+xiMhSFmwSUMATXKx8mmSzGMwrQK+1V
tBQsdvb85yMdtxNl9VFvp4V/UBZTnP334UM8Dz/uWmUV5d+4DRjic75BWFco
KkU2XnjfKeBcg+5Sgtx+Rb09Ph61MX7/oR/3RS0JnBl4+dm7BThW0MbsgDrz
DDAVBZOETnhnm658jPCW2QHnrPbAuEp7E2RTdqjvmhxdkwNVS16gw/i9ZVT1
kOR+9Npg9+61IkUZM20HusYLPU6LqlLSok2uLp/f1F/SkdqvkJLclW9N01hs
q2/QS2LHDffuem7HdxoyxVTRZ54BhqLgkdAtOs9s05aPAd4yVbyyqtuAEZX2
HgjxlZjVB4opPp9q+s3HfkJyFcXNXWth6IhB2iPGO1FWH/Ozfcn7h0rqD0fZ
WrRQV0peuutNhw/zKJ6iobRfkeQFjhoX3XlWuqJsr9srCKYhU0yGzDNAXxT+
EjAb6NCXD4NM5qyaodJegnqXmLLjwJ/UTvKSK/NGuX/7UP+60HY7wmGQU1Tx
sy2fsv5syIihk+OLhK/GVJWSFW9xdQ678VT/1SjtV5ou+dq9vrrzgoJqJaGP
yZh5BmiLgktCN3hmm7589PCUyTeruhhRaa9AXvnL7qR8cceHpoT4dmpGdY9b
E3lpvLvLCv28SIsinQY5rNV6P6rvKpOXezgHbMtpQvHRNJVtiiR3oaNXSjVF
eJT2K/IHO92GjFh6XvPArvVaxOhhPaYh62jKpoITpwvFSsaYBjLPEJOuKCgl
0MEz2/Tl00GoTI5ZZQC30l6Feh+xzPHFvn209O3vGvdAJ/Gy+1s9vHp+cCWv
zT0VM2Pocy+8tuCLzVu2REaEffLxithTt9AcEExtmyK7t9XDl9oSE6n9CtFc
sH3WaNvh7rNDI7evGP3s7ptbNHFOsKNjcLZ2v0wVk0XmGWJSFAW1BNpu8Mo2
Q/lQyuSeVRMqtTqIpux1H+ww7dMrUpK/cV70dWpLTFz2K3p332YUk2VRMEjg
k23G8jFhOpkqIyu1EmQV6QlJl2p5PlBD0PzZfXvO19A1j8t+RVGW4Ip+JUEW
k01RMEjgnm0D5TP4bpPIVBlfqZVAykUNctOstIT0SRNt07jsV5TNN8/EqPew
DqtOl6L6yjXymMxFwSCBT7YZy8cKo8tUmUopAAAAAAAAQM3/AcSCbZM=
    "], {{0, 193}, {
    366, 0}}, {0, 255},
    ColorFunction->RGBColor],
   BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
   Selectable->False],
  DefaultBaseStyle->"ImageGraphics",
  ImageSize->Automatic,
  ImageSizeRaw->{366, 193},
  PlotRange->{{0, 366}, {0, 193}}]], "Output",
 ImageSize->{370, 193},
 ImageMargins->{{0, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}},
 CellTags->"RasterizedOutput",
 CellLabel->"Out[2]=",
 CellID->1127345131]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[" ", "FooterCell"]
},
Saveable->False,
ScreenStyleEnvironment->"Working",
WindowSize->{725, 750},
WindowMargins->{{-10, Automatic}, {Automatic, -8}},
WindowTitle->"FCMultiLoopTID",
TaggingRules->{
 "ModificationHighlight" -> False, "ColorType" -> "SymbolColor", "LinkTrails" -> 
  GridBox[{{
      RowBox[{
        ButtonBox[
        "FeynCalc", ButtonData -> "paclet:FeynCalc/guide/FeynCalc", 
         BaseStyle -> {"Link", "DockedLinkTrail"}]}]}}, ColumnAlignments -> 
    Left], "HasOptions" -> False, "ExampleCounter" -> 1, "NeedPlatMsgIn" -> 
  None, "RootCaptions" -> "", 
  "Metadata" -> {
   "built" -> "{2020, 6, 20, 19, 6, 2.449668}", 
    "history" -> {"9.0", "", "", ""}, "context" -> "FeynCalc`", 
    "keywords" -> {}, "specialkeywords" -> {}, 
    "tutorialcollectionlinks" -> {}, "index" -> True, "label" -> 
    "Feyn Calc Symbol", "language" -> "en", "paclet" -> "FeynCalc", "status" -> 
    "None", "summary" -> 
    "FCMultiLoopTID[amp, {q1, q2, ...}] does a multi-loop tensor integral \
decomposition, transforming the Lorentz indices away from the loop momenta \
q1,q2,... The decomposition is applied only to the loop integrals where loop \
momenta are contracted with Dirac matrices or epsilon tensors.", 
    "synonyms" -> {}, "tabletags" -> {}, "title" -> "FCMultiLoopTID", 
    "titlemodifier" -> "", "windowtitle" -> "FCMultiLoopTID", "type" -> 
    "Symbol", "uri" -> "FeynCalc/ref/FCMultiLoopTID"}, "SearchTextTranslated" -> 
  ""},
CellContext->"Global`",
FrontEndVersion->"10.4 for Linux x86 (64-bit) (April 11, 2016)",
StyleDefinitions->Notebook[{
   Cell[
    StyleData[
    StyleDefinitions -> FrontEnd`FileName[{"Wolfram"}, "Reference.nb"]]], 
   Cell[
    StyleData["Input"], CellContext -> "Global`"], 
   Cell[
    StyleData["Output"], CellContext -> "Global`"]}, Visible -> False, 
  FrontEndVersion -> "10.4 for Linux x86 (64-bit) (April 11, 2016)", 
  StyleDefinitions -> "Default.nb"]
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
 "PrimaryExamplesSection"->{
  Cell[5651, 172, 388, 15, 31, "PrimaryExamplesSection",
   CellTags->"PrimaryExamplesSection",
   CellID->1923409498]},
 "RasterizedOutput"->{
  Cell[10145, 346, 11389, 195, 214, "Output",
   CellTags->"RasterizedOutput",
   CellID->1127345131]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"PrimaryExamplesSection", 23635, 595},
 {"RasterizedOutput", 23779, 599}
 }
*)
(*NotebookFileOutline
Notebook[{
Cell[586, 21, 2298, 53, 53, "AnchorBarGrid",
 CellID->1],
Cell[2887, 76, 291, 11, 45, "ObjectNameGrid"],
Cell[CellGroupData[{
Cell[3203, 91, 704, 18, 119, "Usage",
 CellID->982511436],
Cell[CellGroupData[{
Cell[3932, 113, 738, 24, 31, "NotesSection",
 CellGroupingRules->{"SectionGrouping", 50},
 CellID->497550741],
Cell[4673, 139, 31, 0, 70, "SectionHeaderSpacer"],
Cell[CellGroupData[{
Cell[4729, 143, 97, 2, 70, "Input"],
Cell[4829, 147, 761, 18, 75, "Output"]
}, Open  ]]
}, Closed]]
}, Open  ]],
Cell[CellGroupData[{
Cell[5651, 172, 388, 15, 31, "PrimaryExamplesSection",
 CellTags->"PrimaryExamplesSection",
 CellID->1923409498],
Cell[CellGroupData[{
Cell[6064, 191, 195, 6, 26, "ExampleSection",
 CellID->655084334],
Cell[CellGroupData[{
Cell[6284, 201, 508, 16, 27, "Input",
 CellID->1095109255],
Cell[6795, 219, 3146, 115, 63, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[9978, 339, 164, 5, 27, "Input"],
Cell[10145, 346, 11389, 195, 214, "Output",
 CellTags->"RasterizedOutput",
 CellID->1127345131]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[21573, 546, 23, 0, 41, "FooterCell"]
}
]
*)

(* End of internal cache information *)

